﻿Public Class LoginForm

    Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim TNSnames As New OracleTools.TNSNamesReader
        For Each item In TNSnames.TNSnames
            cmbSID.Items.Add(item)
        Next
        If Not String.IsNullOrEmpty(cmbSID.Text) Then Me.ActiveControl = txtUsername
        If Not String.IsNullOrEmpty(txtUsername.Text) Then Me.ActiveControl = txtPassword
    End Sub
End Class